#!/usr/local/bin/perl
use strict; use warnings;
use Encode qw/find_encoding decode/;
use File::Path qw/remove_tree/;
exit unless @ARGV;
my $e=Encode::find_encoding("UTF-8");
$_=$e->decode($_) foreach(@ARGV);
&remove_tree(@ARGV);
exit;
